home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_13.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  1.5 KB  |  49 lines
  1. on enterFrame
  2.   set ActiveStartspr to 3
  3.   set reseaux to ActiveStartspr
  4.   set reseauxBall to 4
  5.   set startBall to 11
  6.   set superpositionBall to startBall
  7.   set interconnexionBall to startBall + 1
  8.   set integrationBall to startBall + 2
  9.   set startHighLightSpr to 14
  10.   set superposition to startHighLightSpr
  11.   set interconnexion to startHighLightSpr + 1
  12.   set integration to startHighLightSpr + 2
  13.   set startHotSpot to 17
  14.   set superpositionHS to startHotSpot
  15.   set interconnexionHS to startHotSpot + 1
  16.   set integrationHS to startHotSpot + 2
  17.   updateStage()
  18.   set ro to rollOver()
  19.   puppetizeExclude(0, ro - (startHotSpot - startHighLightSpr), superposition, integration)
  20.   case ro of
  21.     reseaux, reseauxBall:
  22.       go(the frame)
  23.     superpositionHS, superpositionBall:
  24.       puppetSprite(superposition, 1)
  25.       set the member of sprite superposition to member "superposition"
  26.       updateStage()
  27.       go(the frame)
  28.       set integrationBall to startBall + 2
  29.     interconnexionHS, interconnexionBall:
  30.       puppetSprite(interconnexion, 1)
  31.       set the member of sprite interconnexion to member "interconnexion"
  32.       updateStage()
  33.       go(the frame)
  34.     integrationHS, integrationBall:
  35.       puppetSprite(integration, 1)
  36.       set the member of sprite integration to member "integration"
  37.       updateStage()
  38.       go(the frame)
  39.     otherwise:
  40.       depuppetize(superposition, integration)
  41.       updateStage()
  42.       go("reseauxClose")
  43.   end case
  44. end
  45.  
  46. on exitFrame
  47.   go(the frame)
  48. end
  49.